COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "MAP"
C00004 ENDMK
C⊗;
BEGIN "MAP"
	INTEGER CNT,SUBEND,GAP;
	REQUIRE "ABBREV[SYS,BGB]" SOURCE_FILE;
	SAFE INTEGER ARRAY MEM[0:36000];
PROCEDURE DUMPIN;
BEGIN
	OPEN(1,"DSK",8,3,0,0,0,0);
	LOOKUP(1,"G.DMP",0);
	ARRYIN(1,MEM['74],36000);
	RELEASE(1);
END;	

PROCEDURE PRNMAP(STRING STR;INTEGER Q);
BEGIN "PRNMAP"
	INTEGER I,J,K,LO,HI;
	LO ← MEM[Q];HI ← MEM[Q+1];
	OUTSTR(↓&STR&9&CVS(LO)&" TO "&CVS(HI)&↓);
	FOR I ← LO THRU HI DO
	IF (MEM[I] LSH -21)= '77700 THEN
BEGIN
	J ← (MEM[I] LAND '777777)MIN HI;
	K ← MEM[I+1];
	IF I≠SUBEND THEN 
	⊂  OUTSTR(STR&9&CVS(SUBEND)&" TO "&CVS(I-1));
	   SETFORMAT(0,3);
	   OUTSTR(9&"GAP "&CVS(GAP←GAP+1));
	   SETFORMAT(6,3);
	   OUTSTR(9&CVS(I-SUBEND)&" WORDS"&↓);⊃;

	OUTSTR(STR&9&CVS(I)&" TO "&CVS(I+K));
	OUTSTR(CVS(CNT←CNT+1)&" "&CVXSTR(MEM[J]));
	OUTSTR(9&CVS(K)&" WORDS"&↓);
	SUBEND ← I+K+1
END;
END "PRNMAP";
GAP←	CNT←0;
	DUMPIN;
	SETFORMAT(6,3);
	PRNMAP("GEOMED",'140);
	PRNMAP("UTILTY",'142);
	PRNMAP("EULER",'144);
	PRNMAP("EUCLID",'146);
	PRNMAP("OCCULT",'150);
	PRNMAP("BIN",'152);
END "MAP"